home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / coin flip 2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  406b  |  19 lines
  1. 100 REM***COIN FLIPPER #2
  2. 200 REM***FIND OUT HOW MANY FLIPS
  3. 210 PRINT"[147]";
  4. 220 INPUT "HOW MANY COIN FLIPS";N
  5. 230 PRINT
  6. 300 REM***T = TAILS COUNTER H = HEADS COUNTER
  7. 310 T = 0
  8. 320 H = 0
  9. 400 REM***FLIP COIN N TIMES, PRINT EACH EVENT
  10. 410 FOR K = 1 TO N
  11. 420 COIN = INT(2*RND(1))
  12. 430 IF COIN = 0 THEN PRINT "TAILS",:T=T+1
  13. 440 IF COIN = 1 THEN PRINT "HEADS",:H=H+1
  14. 450 NEXT K
  15. 460 PRINT
  16. 500 REM***PRINT RESULTS OF N FLIPS
  17. 510 PRINT"I GOT"H"HEADS AND"T"TAILS."
  18. 999 END
  19.